Preparativos

library(sf)
library(dplyr)
library(leaflet)
library(ggplot2)
library(plotly)
library(DT)
felinos <-
  st_read(
    "C:/Users/gf0604-1/datos geoespaciales/clase 08-06-22/felinos.csv",
    options = c(
      "X_POSSIBLE_NAMES=decimalLongitude", # columna de longitud decimal
      "Y_POSSIBLE_NAMES=decimalLatitude"   # columna de latitud decimal
    ),
    quiet = TRUE
  )

Tabla

Gráfico

Mapa

leaflet() %>%
  addTiles() %>% # capa de base
  addCircleMarkers( # capa de registros de presencia (puntos)
    data = felinos, 
    stroke = F,
    radius = 4, 
    fillColor = "blue",
    fillOpacity = 1
    )